<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>7</cardCount>
<cardID>3057</cardID>
<listID>6532</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®----------------------------------------------------------------------------------------------------------------------------------System Handlers:-----------------------------on openStackhide menuBarhide titleBarcolorizeHCinitGlobalsopenPictureresetSystemPaletteloadPaletteloadTxtend openStackon resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then ¬close window "black"end resetSystemPaletteon closeStacknoPaintWhitepalette "runMenu", "0,417"noPaintWhiteif there is a window "sunMenu"then close window "sunMenu"end closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "sunMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon goNextlock screengo nextunlock screenend goNexton goPrevlock Screengo previousunlock Screenend goPrevon goBacklock Screengo to card "Main Menu" --takes you to this stack main menuunlock Screenend goBackon goEventlock screengo to cd "MAIN MENU"unlock screenend goEventon goSolarlock screengo to stack "HOME"unlock screenend goSolar-----------------------OPTIONS HANDLER------------------------------------on loadTxtglobal marker, printFieldput "PLANETS:SUN:SUN.TXT" into markerput "SUN" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstall</script>
